﻿Imports System.Data
Imports System.Data.SqlClient
Imports System.Windows.Forms

Public Class Nuevo_Departamento

    Private Sub Nuevo_Departamento_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        txtcoddpto.Focus()
    End Sub


    Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click

        If txtcoddpto.TextLength = 0 Then
            MsgBox("Ingrese Código de Departamento.", MsgBoxStyle.Exclamation)
            txtcoddpto.Focus()
            Exit Sub
        End If

        If Not IsNumeric(txtcoddpto.Text) Then
            MsgBox("El código de Departamento debe ser numérico", MsgBoxStyle.DefaultButton1, Title:="ERROR")
            txtcoddpto.Focus()
            txtcoddpto.Text = ""
            Exit Sub
        End If


        If txtnomdepto.TextLength = 0 Then
            MsgBox("Ingrese Nombre de Departamento.", MsgBoxStyle.Exclamation)
            txtnomdepto.Focus()
            Exit Sub
        End If


        If IsNumeric(txtnomdepto.Text) Then
            MsgBox("Ingrese Nombre de Departamento.", MsgBoxStyle.Exclamation)
            txtnomdepto.Focus()
            txtnomdepto.Text = ""
            Exit Sub
        End If


        If txtcodprovincia.TextLength = 0 Then
            MsgBox("Ingrese Código de Provincia.", MsgBoxStyle.Exclamation)
            txtcodprovincia.Focus()
            Exit Sub
        End If

        If Not IsNumeric(txtcodprovincia.Text) Then
            MsgBox("El código de Provincia debe ser numérico", MsgBoxStyle.DefaultButton1, Title:="ERROR")
            txtcodprovincia.Focus()
            txtcodprovincia.Text = ""
            Exit Sub
        End If


        Dim oDepartamentoNegocios As New Negocios.Ndepartamento
        Dim oDepartamento As New Entidades.Edepartamento

        oDepartamento.coddepartamento = UCase(txtcoddpto.Text)
        oDepartamento.nomdepartamento = UCase(txtnomdepto.Text)
        oDepartamento.codprovincia = UCase(txtcodprovincia.Text)



        Try

            If oDepartamentoNegocios.guardardepartamento(oDepartamento) Then
                MsgBox("Desea guardar los datos?", MsgBoxStyle.YesNo)


                MsgBox("Los datos se guardaron correctamente.", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Los datos no han sido guardados." + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try


        txtcoddpto.Text = ""
        txtnomdepto.Text = ""
        txtcodprovincia.Text = ""
        txtcoddpto.Focus()


    End Sub

    Private Sub btnmodificar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnmodificar.Click

        If txtcoddpto.TextLength = 0 Then
            MsgBox("Ingrese Código de Departamento.", MsgBoxStyle.Exclamation)
            txtcoddpto.Focus()
            Exit Sub
        End If

        If Not IsNumeric(txtcoddpto.Text) Then
            MsgBox("El código de Departamento debe ser numérico", MsgBoxStyle.DefaultButton1, Title:="ERROR")
            txtcoddpto.Focus()
            txtcoddpto.Text = ""
            Exit Sub
        End If


        If txtnomdepto.TextLength = 0 Then
            MsgBox("Ingrese Nombre de Departamento.", MsgBoxStyle.Exclamation)
            txtnomdepto.Focus()
            Exit Sub
        End If


        If IsNumeric(txtnomdepto.Text) Then
            MsgBox("Ingrese Nombre de Departamento.", MsgBoxStyle.Exclamation)
            txtnomdepto.Focus()
            txtnomdepto.Text = ""
            Exit Sub
        End If


        If txtcodprovincia.TextLength = 0 Then
            MsgBox("Ingrese Código de Provincia.", MsgBoxStyle.Exclamation)
            txtcodprovincia.Focus()
            Exit Sub
        End If

        If Not IsNumeric(txtcodprovincia.Text) Then
            MsgBox("El código de Provincia debe ser numérico", MsgBoxStyle.DefaultButton1, Title:="ERROR")
            txtcodprovincia.Focus()
            txtcodprovincia.Text = ""
            Exit Sub
        End If


        Dim oDepartamentoNegocios As New Negocios.Ndepartamento
        Dim oDepartamento As New Entidades.Edepartamento

        oDepartamento.coddepartamento = UCase(txtcoddpto.Text)
        oDepartamento.nomdepartamento = UCase(txtnomdepto.Text)
        oDepartamento.codprovincia = UCase(txtcodprovincia.Text)



        Try

            If oDepartamentoNegocios.modificardepartamento(oDepartamento) Then
                MsgBox("Desea modificar los datos?", MsgBoxStyle.YesNo)


                MsgBox("Los datos se guardaron correctamente.", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Los datos no han sido guardados." + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try


        txtcoddpto.Text = ""
        txtnomdepto.Text = ""
        txtcodprovincia.Text = ""
        txtcoddpto.Focus()


    End Sub

    Private Sub txtcoddpto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcoddpto.KeyPress

        If e.KeyChar = ChrW(Keys.Enter) Then
            txtnomdepto.Focus()
        Else
            If txtcoddpto.TextLength = 0 Then
                txtcoddpto.Focus()
            End If
        End If

    End Sub

    Private Sub txtnomdepto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnomdepto.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            txtcodprovincia.Focus()
        Else
            If txtnomdepto.TextLength = 0 Then
                txtnomdepto.Focus()
            End If
        End If
    End Sub

    Private Sub txtcodprovincia_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcodprovincia.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            btnguardar.Focus()
        Else
            If txtcodprovincia.TextLength = 0 Then
                txtcodprovincia.Focus()
            End If
        End If
    End Sub
End Class